home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / upsmft.zip / SUMMARY.PRG < prev    next >
Text File  |  1986-05-13  |  695b  |  82 lines
  1. *************** SUMMARY.PRG (SUMMARIZES UPSBOOK)ì
  2. ************************
  3. SET DEVICE TO PRINT
  4. CLEAR ALL
  5. USE SHIPMAST
  6. ACCEPT "DATE SHIPPED:" TO A
  7. ACCEPT "UPS PICK-UP RECORD NUMBER:" TO B
  8. S1=0
  9. S2=0
  10. S3=0
  11. S4=0
  12. S5=0
  13. S6=0
  14. S7=0
  15. S8=0
  16. S9=0
  17. S10=0
  18. S11=0
  19. S12=0
  20. S13=0
  21. S14=0
  22. S15=0
  23. S16=0
  24. S17=0
  25. S18=0
  26. S19=0
  27. Z1=0
  28. Z2=0
  29. Z3=0
  30. Z4=0
  31. Z5=0
  32. Z6=0
  33. Z7=0
  34. Z8=0
  35. Z9=0
  36. Z10=0
  37. Z11=0
  38. Z12=0
  39. Z13=0
  40. Z14=0
  41. Z15=0
  42. Z16=0
  43. Z17=0
  44. Z18=0
  45. Z19=0
  46. P1=0
  47. P2=0
  48. P3=0
  49. P4=0
  50. P5=0
  51. P6=0
  52. P7=0
  53. P8=0
  54. P9=0
  55. P10=0
  56. P11=0
  57. P12=0
  58. P13=0
  59. P14=0
  60. P15=0
  61. P16=0
  62. P17=0
  63. P18=0
  64. P19=0
  65. A1=0
  66. A2=0
  67. A3=0
  68. A4=0
  69. A5=0
  70. A6=0
  71. A7=0
  72. A8=0
  73. A9=0
  74. A10=0
  75. A11=0
  76. A12=0
  77. A13=0
  78. DO CALC
  79. DO SPO
  80. SET DEVICE TO SCREEN
  81. RETURN
  82.